%function mcgh_findClone
global find_cloneString findClone_fig


findClone_fig=figure(55);
set(findClone_fig,'Color',[0.8 1 1], ...
   	'units','normalized', ...
   	'Position',[0.55 0.07 0.23 0.13], ...
   	'DoubleBuffer','on',...
   	'Tag','findClone_fig',...
    'NumberTitle','off',...
    'MenuBar','none',...
    'Name','M-CGH Find Clone');

%buttton for find clone
Bfind=uicontrol('style','push','string','Find clone',...
    'units','normalized',...
   'position',[0.05 0.1 0.3 0.3],...
    'callback', [ 'mcgh_plotFindClone(find_cloneString)'], ...
   'Interruptible','on');

%text for find clone
findClone_field=uicontrol('Style','edit','Units','normalized','Position', [.4 .1  .5 0.3],...
         'BackgroundColor','white',...
         'CallBack',['find_cloneString=get(findClone_field,''String'');']);

 set(findClone_fig,'HandleVisibility','off');

     
if ~isempty(find_cloneString)
 set(findClone_field,'String',find_cloneString);
end

%%%%%%%%%%%%
%
